home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 4 / MacMania 4.toast / / Tools&Utilities / MathPad 2.4 / Examples / RLC circuit < prev    next >
Text File  |  1996-04-10  |  594b  |  31 lines
  1. include ":incl:complex ops"
  2. w = 2*π*f
  3. db(gain) = 20*log(gain)
  4.  
  5. -- parallel impedances
  6. par(z1,z2) = Cdiv(Cmult(z1,z2),(z1+z2))
  7.  
  8. -- complex impedance of components
  9. zC = {0  ,-1/(w*C)}
  10. zL = {Rs ,w*L}  --Rs due to winding res
  11. zR = {R  ,0}
  12.  
  13. -- circuit is voltage divider
  14. zgain = zout := par(zC,zR),
  15.         Cdiv(zout,(zout+zL))
  16.  
  17. -- component values
  18. L=180u;  Rs=.5
  19. C=.2u
  20. R=50
  21.  
  22. f=X*1K  -- freq in Khz
  23. Xmin=1; Xmax=500; Xdiv=3 --log axis
  24. Ymin=-50; Ymax=5 
  25. plot db(Cabs(zgain)); Ylabel=" gain db"
  26.  
  27. newaxis; Ystrips=2
  28. Ymin:=-180:; Ymax:=0:; Ydiv:=45:
  29. Ylabel:=" phase  ":; Xlabel:="Khz":
  30. plot Carg(zgain)
  31.